Sentimental Analysis of Times of India 2019
#About Times of India
Libraries used.
##
## Attaching package: 'igraph'## The following objects are masked from 'package:stats':
##
## decompose, spectrum## The following object is masked from 'package:base':
##
## union## Loading required package: ggplot2## Registered S3 methods overwritten by 'ggplot2':
## method from
## [.quosures rlang
## c.quosures rlang
## print.quosures rlang##
## Attaching package: 'plotly'## The following object is masked from 'package:ggplot2':
##
## last_plot## The following object is masked from 'package:igraph':
##
## groups## The following object is masked from 'package:stats':
##
## filter## The following object is masked from 'package:graphics':
##
## layout## Loading required package: lubridate##
## Attaching package: 'lubridate'## The following object is masked from 'package:igraph':
##
## %--%## The following objects are masked from 'package:data.table':
##
## hour, isoweek, mday, minute, month, quarter, second, wday,
## week, yday, year## The following object is masked from 'package:base':
##
## date## Loading required package: PerformanceAnalytics## Loading required package: xts## Loading required package: zoo##
## Attaching package: 'zoo'## The following objects are masked from 'package:base':
##
## as.Date, as.Date.numeric## Registered S3 method overwritten by 'xts':
## method from
## as.zoo.xts zoo##
## Attaching package: 'xts'## The following objects are masked from 'package:data.table':
##
## first, last##
## Attaching package: 'PerformanceAnalytics'## The following object is masked from 'package:graphics':
##
## legend## Loading required package: quantmod## Loading required package: TTR## Registered S3 method overwritten by 'quantmod':
## method from
## as.zoo.data.frame zoo## Version 0.4-0 included new data defaults. See ?getSymbols.## Loading required package: tidyverse## -- Attaching packages ------------------------------------------------------------------------------------------------------------------- tidyverse 1.2.1 --## v tibble 2.1.1 v purrr 0.3.2
## v tidyr 0.8.3 v dplyr 0.8.1
## v readr 1.3.1 v stringr 1.4.0
## v tibble 2.1.1 v forcats 0.4.0## -- Conflicts ---------------------------------------------------------------------------------------------------------------------- tidyverse_conflicts() --
## x lubridate::%--%() masks igraph::%--%()
## x lubridate::as.difftime() masks base::as.difftime()
## x dplyr::as_data_frame() masks tibble::as_data_frame(), igraph::as_data_frame()
## x dplyr::between() masks data.table::between()
## x dplyr::combine() masks gridExtra::combine()
## x purrr::compose() masks igraph::compose()
## x tidyr::crossing() masks igraph::crossing()
## x lubridate::date() masks base::date()
## x dplyr::filter() masks plotly::filter(), stats::filter()
## x dplyr::first() masks xts::first(), data.table::first()
## x dplyr::groups() masks plotly::groups(), igraph::groups()
## x lubridate::hour() masks data.table::hour()
## x lubridate::intersect() masks base::intersect()
## x lubridate::isoweek() masks data.table::isoweek()
## x dplyr::lag() masks stats::lag()
## x dplyr::last() masks xts::last(), data.table::last()
## x lubridate::mday() masks data.table::mday()
## x lubridate::minute() masks data.table::minute()
## x lubridate::month() masks data.table::month()
## x lubridate::quarter() masks data.table::quarter()
## x lubridate::second() masks data.table::second()
## x lubridate::setdiff() masks base::setdiff()
## x purrr::simplify() masks igraph::simplify()
## x purrr::transpose() masks data.table::transpose()
## x lubridate::union() masks igraph::union(), base::union()
## x lubridate::wday() masks data.table::wday()
## x lubridate::week() masks data.table::week()
## x lubridate::yday() masks data.table::yday()
## x lubridate::year() masks data.table::year()## Loading required package: NLP##
## Attaching package: 'NLP'## The following object is masked from 'package:ggplot2':
##
## annotateReading all CSv files into R.
Removing all NA ’s in the data
## [1] 0Renaming the column.
converting the fromate of date column Extracting the months
## Joining, by = "word"##Binary sentiment Analysis
###Percentage of Sentiments in Employees Reviews
## Joining, by = "word"Positive Negative sentiments trend by Months 
Positive Negative sentiments trend by weekDays 
## Joining, by = "word"
## Selecting by n
###Multiple sentiments Analysis
we have 6 different type sentiments:-
1)Fear. 2)Joy. 3)Negative. 4)Positive. 5)Sadness 6)Trust
## Joining, by = "word"###Percentage of Sentiments in Employees Reviews
## Joining, by = "word"By Month 
## Joining, by = "word"## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): birthday could not be fit on page. It will not be
## plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): killing could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): dance could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): happy could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): leave could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): marriage could not be fit on page. It will not be
## plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): young could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): sex could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): award could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): delay could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): finally could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): rescue could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): mother could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): create could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): electric could not be fit on page. It will not be
## plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): violence could not be fit on page. It will not be
## plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): theft could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): denied could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): beach could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): highest could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): black could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): surprise could not be fit on page. It will not be
## plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): violation could not be fit on page. It will not be
## plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): promise could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): robbery could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): late could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): alive could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): remove could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): weight could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): peace could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): broken could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): journey could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): rejects could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): inter could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): garden could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): abuse could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): victory could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): victim could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): friendly could not be fit on page. It will not be
## plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): lover could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): steal could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): surgery could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): church could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): improve could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): ministry could not be fit on page. It will not be
## plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): score could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): abandoned could not be fit on page. It will not be
## plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): supreme could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): hanging could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): tender could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): brother could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): collapse could not be fit on page. It will not be
## plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): status could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): lead could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): perfect could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): white could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): league could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): sunny could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): sun could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): problem could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): boycott could not be fit on page. It will not be plotted.## Warning in comparison.cloud(., colors = viridis_pal(option = "D")(4),
## max.words = 200): celebration could not be fit on page. It will not be
## plotted.
## Selecting by n
Topic Modeling
This are the count of Most common words 
## Joining, by = "word"
## Joining, by = "word"